00100	;WORD -3.
00200	   DEFINE CW (Q,E)<CAR Q,-3(E)>↔DEFINE CW. (Q,E)<DIP Q,-3(E)>
00300	   DEFINE CCW(Q,E)<CDR Q,-3(E)>↔DEFINE CCW.(Q,E)<DAP Q,-3(E)>
00400	
00500	;WORD -2.
00600	   DEFINE DAD(Q,E)<CAR Q,-2(E)>↔DEFINE DAD.(Q,E)<DIP Q,-2(E)>
00700	   DEFINE SON(Q,E)<CDR Q,-2(E)>↔DEFINE SON.(Q,E)<DAP Q,-2(E)>
00800	
00900	;WORD -1.
01000	   DEFINE BRO(Q,E)<CAR Q,-1(E)>↔DEFINE BRO.(Q,E)<DIP Q,-1(E)>
01100	   DEFINE SIS(Q,E)<CDR Q,-1(E)>↔DEFINE SIS.(Q,E)<DAP Q,-1(E)>
01200	
01300	;WORD +0.
01400	   DEFINE TYPE  (Q,E)<CAR Q, 0(E)>
01500	   DEFINE TYPE. (Q,E)<DIP Q, 0(E)>↔DEFINE SERIA.(Q,E)<DAP Q, 0(E)>
01600	
01700	;WORD +1.
01800	   DEFINE NFACE (Q,E)<CAR Q, 1(E)>↔DEFINE PFACE (Q,E)<CDR Q, 1(E)>
01900	   DEFINE NFACE.(Q,E)<DIP Q, 1(E)>↔DEFINE PFACE.(Q,E)<DAP Q, 1(E)>
02000	
02100	;WORD +2.
02200	   DEFINE NED   (Q,E)<CAR Q, 2(E)>↔DEFINE PED   (Q,E)<CDR Q, 2(E)>
02300	   DEFINE NED.  (Q,E)<DIP Q, 2(E)>↔DEFINE PED.  (Q,E)<DAP Q, 2(E)>
02400	
02500	;WORD +3.
02600	   DEFINE NVT   (Q,E)<CAR Q, 3(E)>↔DEFINE PVT   (Q,E)<CDR Q, 3(E)>
02700	   DEFINE NVT.  (Q,E)<DIP Q, 3(E)>↔DEFINE PVT.  (Q,E)<DAP Q, 3(E)>
02800	
02900	;WORD +4.
03000	   DEFINE NCW   (Q,E)<CAR Q, 4(E)>↔DEFINE PCW   (Q,E)<CDR Q, 4(E)>
03100	   DEFINE NCW.  (Q,E)<DIP Q, 4(E)>↔DEFINE PCW.  (Q,E)<DAP Q, 4(E)>
03200	
03300	;WORD +5.
03400	   DEFINE NCCW  (Q,E)<CAR Q, 5(E)>↔DEFINE PCCW  (Q,E)<CDR Q, 5(E)>
03500	   DEFINE NCCW. (Q,E)<DIP Q, 5(E)>↔DEFINE PCCW. (Q,E)<DAP Q, 5(E)>
03600	
03700	;WORD +6.
03800	   DEFINE ALT  (Q,E)<CAR Q, 6(E)>↔DEFINE LOCOR (Q,E)<CDR Q, 6(E)>
03900	   DEFINE ALT. (Q,E)<DIP Q, 6(E)>↔DEFINE LOCOR.(Q,E)<DAP Q, 6(E)>
04000	
04100	;WORD +7.
04200		DEFINE POTEN (Q,E)<CDR Q,7(E)>
04300		DEFINE POTEN.(Q,E)<DAP Q,7(E)>
     

00100	; NAMES OF NODE DATA WORDS.
00200	
00300		↓AA ←← ↓XWC ←← -3
00400		↓BB ←← ↓YWC ←← -2
00500		↓CC ←← ↓ZWC ←← -1
00600	
00700		↓QQ ←← 3
00800		↓KK ←← 4
00900	
01000		↓XPP ←← 4↔	↓YPP ←← 5↔	↓ZPP ←← 6
01100		↓IX←←0↔ 	↓IY←←1↔ 	↓IZ←←2
01200		↓JX←←3↔ 	↓JY←←4↔ 	↓JZ←←5
01300		↓KX←←6↔ 	↓KY←←7↔ 	↓KZ←←8
01400	
     

00100	;WRETCHED HALFWORD FLOATING POINT VERTEX DISPLAY COORDINATES.
00200	
00300	   DEFINE XDC (Q,E)<HLLE Q,1(E)>↔DEFINE YDC (Q,E)<HRLE Q,1(E)>
00400	   DEFINE XDC.(Q,E)<HLLM Q,1(E)>↔DEFINE YDC.(Q,E)<HLRM Q,1(E)>
00500	
00600	; FETCH LINK FROM NODE.
00700	
00800	   DEFINE NBODY (Q,E)<CAR Q, 6(E)>↔DEFINE PBODY (Q,E)<CDR Q, 6(E)>
00900	   DEFINE NUF   (Q,E)<CAR Q,-1(E)>↔DEFINE PUF   (Q,E)<CDR Q,-1(E)>
01000	   DEFINE NCNT  (Q,E)<NIP Q, 2(E)>
01100	   DEFINE X1DC  (Q,E)<NIP Q,-3(E)>↔DEFINE Y1DC  (Q,E)<NAP Q,-3(E)>
01200	   DEFINE X2DC  (Q,E)<NIP Q,-2(E)>↔DEFINE Y2DC  (Q,E)<NAP Q,-2(E)>
01300	
01400	; STORE LINK INTO NODE.
01500	
01600	   DEFINE NBODY.(Q,E)<DIP Q, 6(E)>↔DEFINE PBODY.(Q,E)<DAP Q, 6(E)>
01700	   DEFINE NUF.  (Q,E)<DIP Q,-1(E)>↔DEFINE PUF.  (Q,E)<DAP Q,-1(E)>
01800	   DEFINE NCNT. (Q,E)<DIP Q, 2(E)>
01900	   DEFINE X1DC. (Q,E)<DIP Q, 4(E)>↔DEFINE Y1DC. (Q,E)<DAP Q, 4(E)>
02000	   DEFINE X2DC. (Q,E)<DIP Q, 5(E)>↔DEFINE Y2DC. (Q,E)<DAP Q, 5(E)>
     

00001	;TYPE BIT OPERATIONS.
00002	
00003		DEFINE MARK(Q,BITS){
00004		IFE BITS⊗-22,{LACI BITS}
00005		IFN BITS⊗-22,{SLACI(BITS)}
00006		IORM(Q)}
00007	
00008		DEFINE MARKZ(Q,BITS){
00009		IFE BITS⊗-22,{LACI BITS}
00010		IFN BITS⊗-22,{SLACI(BITS)}
00011		ANDCAM (Q)}
00012	
00013		DEFINE TEST(Q,BITS){
00014		LAC(Q)
00015		IFE BITS⊗-22,{TRNN(BITS)}
00016		IFN BITS⊗-22,{TLNN(BITS)}}
00017	
00018		DEFINE TESTZ(Q,BITS){
00019		LAC(Q)
00020		IFE BITS⊗-22,{TRNE(BITS)}
00021		IFN BITS⊗-22,{TLNE(BITS)}}
01400	
01500	; PROPERTY-TYPE BITS.
01600	
01700		↓BBIT ←← 1B17
01800		↓FBIT ←← 1B16
01900		↓EBIT ←← 1B15
02000		↓VBIT ←← 1B14
02100	
02200		↓PZZ ←← 1B9
02300		↓NZZ ←← 1B10
02400	
02500		↓FOLDED ←← 1B11
02600		↓VISIBLE ←← 1B12
02700		↓POTENT ←← 1B13
02800		↓DARKEN ←← 1B3
02900	
03000		↓NORTH ←← 1B5
03100		↓SOUTH ←← 1B6
03200		↓EAST  ←← 1B7
03300		↓WEST  ←← 1B8
03400		↓NSEW  ←← 17B8
03410	
03420		↓JUTBIT ←← 1B3
03430		↓JOTBIT ←← 1B4
03500	
03600		DEFINE HIDE(Q){
03700		SLACI(3B13)↔ANDCAM(Q)}
03800	
03900		↓TMPBIT ←← 1B2
04000		↓BDLBIT ←← 1B1	;BODY OPERATION DISABLE LOCOR ACTION.
04100		↓BDVBIT ←← 1B3	;BODY OPERATION DISABLE VERTEX ACTION.
04200		↓BDPBIT ←← 1B4	;BODY OPERATION DISABLE PARTS ACTION.